LABOR HOURS FOR LOOKUP HBAM2001MAY84 Project.FM:* Cv101 Cv105 Cv106 Apple Computer Department Martin Richard Stores First Project Sample Second T-099 T-100 T-101 Company Hours Jiffy Labor T-shirt Tough 111-555-6955 893-9098 David Location Martin Meador Richard Torey X2569 111-527-7787 111-555-6952 111-555-9089 111-555-1212 111-555-8888 111-555-9658 Retail Wholesale Labor Materials Company Direct Marketing Apple Computer Cv101 Cv105 Cv106 Department Hours Martin Richard Stores Total E1003 E1004 E1006 Browne Capone Dennis Julie Smith R046std000015 W028std000100 Wt-099std000022 Wt-100std000020 Wt-101std000015 000012 000015 000018 000020 000022 000100 Pro 2.0 - 2.1F! Pro 2.0 - 2.1I Main Dictionary 1/3/94 CUST # CUST CONTACT CUST FAX CUST NAME CUST PHONE EMPLOYEE NAME EMPLOYEE NUMBER EMPTY HOURLY RATE ITEM NAME ITEM NUMBER ITEM PRICE ITEM TYPE LABOR CHARGES LABOR CHARGES FOR LOOKUP LABOR CHARGES SUM LABOR HOURS ITEM NAME ITEM NUMBER ITEM PRICE ITEM TYPE LABOR CHARGES LABOR CHARGES FOR LOOKUP LABOR CHARGES SUM LABOR HOURS LABOR HOURS FOR LOOKUP LABOR HOURS SUM MATERIAL CHARGES SUM MATERIALS CHARGES MATERIALS CHARGES FOR LOOKUP PRICE LEVEL PRICE LOOKUP PRICE TYPE PRICE...CHOICE PROJECT PROJECT CODE PROJECT INFO FOR HOMEBASE.FM QTY LOOKUP CALC QTY SUMMARY FOR HRS $ SALE TYPE TOTAL TOTAL SUMMARY YOUR COMPANY NAME YOUR COMPANY NUMBER Cust #B Project.FM. A Cust NameB CustVend.FM No Cust With That Number! ProjectB Project.FMM Project CodeB Item NumberB A Item NameB Products.FM No ITEM With That Number! Hours - Labor Item PriceB Prices.FMF Hourly RateB CustVend.FM Cust ContactB CustVend.FM Cust PhoneB CustVend.FM Cust FAXB CustVend.FM DateB A Sale TypeB CustVend.FM Retail Wholesale Price TypeB A0if(Item Type = "Labor", Hourly Rate, Item Price) Labor TotalB ABif(Price...Choice = Empty, Qty * Price Type, Price...Choice * Qty) A Item Type Labor Materials Labor Price...ChoiceB EmptyB Total SummaryB Your Company NumberB Project.FMM Your Company NameB Company.FMM Labor ChargesB if(Item Type = "Labor",Total,0) Labor Materials ChargesB A$if(Item Type = "Materials", Total,0) ' Materials Labor Charges SumB 2(_N^Nu Material Charges SumB 2(_N^Nu Project Info for Homebase.FMB "Cust Code " & Cust # & " " & Cust Name & " Your Co. #" & Your Company Number & " Total $" & NumToText(Summary (Total Summary, Project Code)) & " Hours: " & NumToText(Summary(Labor Hours Sum, Project Code)) Cust Code & Your Co. #(& Total $(X Hours: (X Labor Charges For LookupB A)Summary (Labor Charges Sum, Project Code) Materials Charges For LookupB A,Summary (Material Charges Sum, Project Code) Employee NumberB E1003 E1004 E1005 E1006 Employee NameB Employee.FM Labor HoursB if(Item Type = "Labor",Qty,0) Labor Labor Hours SumB 2(_N^Nu Labor Hours For LookupB A'Summary (Labor Hours Sum, Project Code) Qty Summary for hrsB Price LevelB CustVend.FM Price LookupB Apif(Item Number = Empty, Empty, if(Sale Type = "Retail", "R", "W") & Item Number & Price Level & Qty Lookup Calc) Retail Qty Lookup CalcB A&Right("000000", 6 - Length(Qty)) & Qty 000000 EZ Entry Worksheet Long List PICK LIST - From HomeBase.FM REPORTS Activity Report By Employee FIND OPTIONS Timecard By Employee EZ Entry Project Code Project Lookup Code E Cust Name Item Num Description Lookup Price Modified Price Total Item Num Description Lookup Price Modified Price Total Project Code Project Lookup Code E Cust Name EZ Entry Your Company Number Your Company Number Employee Number Employee Number Reports NEW Record E Long List View As List Find... FUTURE BIZ Basics Pro 2.1v1 WorksheetB Project Worksheet As of // Project Project Code Customer Item Num E Item Name Price Amount Total Billable Total Billable E9TOTAL FOR ALL PROJECTS AND COMPANIES (in this found set): Project for: TOTAL: Long ListB Project E Item Type Total E Long List Reports Print Long List E Cust Name E'Click on any line to go to that record. PICK LIST - From HomeBase.FMB E Pick List Project E Cust Name E1Click on a line to copy and paste the Lookup Code Intentionally Left Blank Intentionally Left Blank REPORTSB Print... E!Print Activity Report By Employee Print Long List Print Worksheet Print Timecard By Employee Activity Report By EmployeeB Activity Report By Employee As of // Project Project Code Customer Item Num E Item Name Price Amount Total Billable Total Billable E9TOTAL FOR ALL PROJECTS AND COMPANIES (in this found set): Project for: TOTAL: FIND OPTIONSB Find Options Reports Enter the Order Date(s) (i.e. 4/1/93) or the date range (i.e. 4/1/93...6/1/93) that you would like a report on or just press Continue to view a report for ALL dates. Enter the Order Date(s) (i.e. 4/1/93) or the date range (i.e. 4/1/93...6/1/93) that you would like a report on or just press Continue to view a report for ALL dates. Date(s) Date(s) Project Code Project Code Customer Customer Employee Number Employee Number E Item Type Item Type Timecard By EmployeeB Richard@ LABOR HOURS FOR LOOKUP Time Card By Employee As of // Projects for: Project Project Code Description CV105 May Department StoresC First Sample ProjectD 1001E Jiffy Bag #1G 1.62H Mr. David Meador 111-555-6955J 111-555-6952K 111-555-9658L 1/9/94N WholesaleO 1.62Q 162R MaterialsV XYZ CompanyX 162\ACust Code CV105 May Department Stores Your Co. #1 Total $ Hours: _ E1006` Al Caponea W028STD000100g 000100 CV101B Apple ComputerC Second Sample ProjectD 1002F Hours - LaborH Mac Torey on locationJ 111-555-9089 K 111-555-8888L 12/9/93N WholesaleO LaborV ABC Direct MarketingX 0\:Cust Code CV101 Apple Computer Your Co. #2 Total $ Hours: _ E1004` Julie R. Smitha 000012 CV105B May Department StoresC First Sample ProjectD 1001F Hours - LaborH Mr. David Meador 111-555-6955J 111-555-6952K 111-555-9658L 12/18/93N WholesaleO LaborV XYZ CompanyX 0\ACust Code CV105 May Department Stores Your Co. #1 Total $ Hours: _ E1004` Julie R. Smitha 000018 CV106B Richard MartinC First Sample ProjectD 1001E F Tough PakG 0I"Richard Martin 111- 893-9098 x2569J 111-527-7787K 111-555-1212L 11/28/93N RetailO 75R MaterialsV XYZ CompanyX 75\:Cust Code CV106 Richard Martin Your Co. #1 Total $ Hours: _ E1003` Dennis E. Brownea R046STD000015g 000015 CV105B May Department StoresC First Sample ProjectD 1001E T-100F XYZ Company T-shirt - LG Mr. David Meador 111-555-6955J 111-555-6952K 111-555-9658L 11/14/93N WholesaleO 190R MaterialsV XYZ CompanyX \ACust Code CV105 May Department Stores Your Co. #1 Total $ Hours: _ E1004` Julie R. Smitha WT-100STD000020g 000020 CV101B Apple ComputerC Second Sample ProjectD 1002F Hours - LaborH Mac Torey on locationJ 111-555-9089 K 111-555-8888L 11/18/93N WholesaleO LaborV ABC Direct MarketingX 0\:Cust Code CV101 Apple Computer Your Co. #2 Total $ Hours: _ E1003` Dennis E. Brownea 000012 CV101B Apple ComputerC Second Sample ProjectD 1002E T-099 XYZ Company T-shirt - MG Mac Torey on locationJ 111-555-9089 K 111-555-8888L 12/10/93N WholesaleO 2200R MaterialsV ABC Direct MarketingX 2200\:Cust Code CV101 Apple Computer Your Co. #2 Total $ Hours: _ E1004` Julie R. Smitha WT-099STD000022g 000022 CV101B Apple ComputerC Second Sample ProjectD 1002E T-101F XYZ Company T-shirt - XLG Mac Torey on locationJ 111-555-9089 K 111-555-8888L 11/8/93N WholesaleO 142.5R MaterialsV ABC Direct MarketingX 142.5\:Cust Code CV101 Apple Computer Your Co. #2 Total $ Hours: _ E1006` Al Caponea WT-101STD000015g 000015 Go To HomeBase.FM Go To EZ Entry Go To Long List Find... Choose Labor Choose Materials Print Worksheet Print Long List !Print Activity Report By Employee Print Timecard By Employee ----------------Utility Scripts--------------- View As List (toggle) Perform Find For Reports... Go To PickList In CustVend.FM $!Return From CustVend.FM Pick List Go To PickList In Products.FM (!Return From Products.FM Pick List *4Find Project For a Particular Customer (HomeBase.FM) ,'Find a particular project (HomeBase.FM) Sort By Project Code Sort By Project Name Sort By Date Sort By Item Type Sort By Cust Name 8*-------------Pick List Scripts------------ GoTo Pick List From Homebase.fM <-Copy Project Number and Return To HomeBase.FM A!Return From CustVend.FM Pick List Go To HomeBase.FM HomeBase.FMCa Go To PickList In CustVend.FM CustVend.FM Go To PickList In CustVend.FM Go To PickList In CustVend.FM Go To PickList In Products.FM Products.FM Go To PickList In CustVend.FM Go To PickList In CustVend.FM A!Return From Products.FM Pick List A Materials Choose Labor LaborB Hours - Labor Choose Materials Print Worksheet A----------------Utility Scripts--------------- A4Find Project For a Particular Customer (HomeBase.FM) A'Find a particular project (HomeBase.FM) Sort By Project Code Sort By Project Name A*-------------Pick List Scripts------------ GoTo Pick List From Homebase.fM A-Copy Project Number and Return To HomeBase.FM HomeBase.FM Hpt Definition for Copy Project umber and Return To HomeBase.FM Sort By Date Print Long List Go To EZ Entry Go To Long List A!Print Activity Report By Employee Perform Find For Reports... Find... View As List (toggle) Sort By Item Type Sort By Cust Name Print Timecard By Employee Labor 'LxIqDn LxIqD 'LxIqDn Helvetica Geneva %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv B begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}r epeat setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if T:P0 (JP*d @(0 )0.8125 0.8125 0.8125 _cv begin strgb end `drw2 0 _cv begin stg end )0.8125 0.8125 0.8125 _cv begin strgb end 0 _cv begin stg end """""" """""" )0.1333 0.1333 0.1333 _cv begin strgb end `drw2 """""""""""" )0.1333 0.1333 0.1333 _cv begin strgb end )0.1333 0.1333 0.1333 _cv begin strgb end )0.1333 0.1333 0.1333 _cv begin strgb end DDDDDD DDDDDD )0.2667 0.2667 0.2667 _cv begin strgb end `drw2 DDDDDDDDDDDD )0.2667 0.2667 0.2667 _cv begin strgb end )0.2667 0.266R 7 0.2667 _cv begin strgb end )0.2667 0.2667 0.2667 _cv begin strgb end """""" )0.5083 0.5083 0.5083 _cv begin strgb end `drw2 """""" )0.1333 0.1333 0.1333T _cv begin strgb end )0.5083 0.5083 0.5083 _cv begin strgb end )0.1333 0.1333 0.1333 _cv begin strgb end )0.6416 0.6416 0.6416 _cv begin strgb end `drw2 0 _cv begin stg end )0.6416 0.6416 0.6416 _cv begin strgb end 0 _cv begin stg end DDDDDD )0.1333 0.1333 0.1333 _cv begin strgb end `drw2 DDDDDD 0 _cv begin stg end )0.1333 0.1333 0.1333 _cv begin strgb end 0 _cv begin stg end )0.6875 0.6875 0.6875 _cv begin strgb end `drw2 0 _cv begin stg end )0.6875 0.6875 0.6875 _cv begin strgb end 0 _cv begin stg end Xdrw2 currentpoint currentpoint /DamPage MkerSv save def _cv begin 2 index sub exch 3 index sub 7 div min1 exch 7 div min1 2 copy scale 3 -1 roll exch div 3 1 roll div 536 sub exch 310 sub translate end 1 _cv begin stg end pnewp^ 536.7500 310.5000 moveto 536.7500 310.5000 542.7500 316.5000 542.7500 316.5000 curveto closepath eofill DamPageMkerSv restore currentpoint currentpoint /DamPageMkerSv save def _cv begin 2 index sub exch 3 index sub 7 div min1 exch 7 div min1 2 copy scale 3 -1 roll exch div 3 1 roll div 536 sub exch 310 sub translate end 1 _cv b` egin stg end newpath 536.7500 310.5000 moveto 536.7500 310.5000 542.7500 316.5000 542.7500 316.5000 curveto 0.7500 0.7500 scale 1 setlinewidth stroke DamPageMkerSv restore Xdrw2 currentpoint currentpoint /DamPageMkerSv save def _cv begin 2 index sub exch 3 index sub 7 div min1 exch 7 div min1 2 copy scale 3 -1 roll exch div 3 1 roll div 497 sub exch 297 sub translate end 1 _cv begin stg end pnewpath 497.5000 297.5000 moveto 497.5000 297.5000 503.5000 303.5000 503.5000 303.5000 curveto closepath eofill DamPageMkerSv restore currentpoint currentpoint /DamPageMkerSv save def _cv begin 2 index sub exch 3 index sub 7 div min1 exch 7 div min1 2 copy scale 3 -1 roll e xch div 3 1 roll div 497 sub exch 297 sub translate end 1 _cv begin stg end newpath 497.5000 297.5000 moveto 497.5000 297.5000 503.5000 303.5000 503.5000 303.5000 curveto 0.7500 0.7500 scale 1f setlinewidth stroke DamPageMkerSv restore Xdrw2 currentpoint currentpoint /DamPageMkerSv save def _cv begin 2 index sub exch 3 index sub 7h div min1 exch 7 div min1 2 copy scale 3 -1 roll exch div 3 1 roll div 356 sub exch 297 sub translate end 1 _cv begin stg end pnewpath 356.7500 297.2500 moveto 356.7500 297.2500 362.7500 303.25 00 362.7500 303.2500 curveto closepath eofill DamPageMkerSv restore currentpoint currentpoint /DamPageMkerSv save def _cv begin 2 indej x sub exch 3 index sub 7 div min1 exch 7 div min1 2 copy scale 3 -1 roll exch div 3 1 roll div 356 sub exch 297 sub translate end 1 _cv begin stg end newpath 356.7500 297.2500 moveto 356.7500 297.2500 362.7500 303.2500 362.7500 303.2500 curveto 0.7500 0.7500 scale 1 setlinewidth stroke DamPageMkerSv restore Xdrw2 currentpoint currentpoint /DamPageMkerSv save def _cv begin 2 index sub exch 3 index sub 7 div min1 exch 6 div min1 2 copy scale 3 -1 roll exch div 3 1 roll div 356 sub exch 240 sub translate end 1 _cv begin stg endn \newpath 356.7500 240 moveto 356.7500 240 362.7500 246 362.7500 246 curveto closepath eofill DamPageMkerSv restore currentpoint currentpoint /DamPageMkerSv save def _cv begin 2 index sub exch 3 index sub 7 div min1 exch 6 div min1 2 copy scale 3 -1 roll exch div 3 1 roll div 356 sub exch 240 sub translate end 1 _cv begin stgp unewpath 356.7500 240 moveto 356.7500 240 362.7500 246 362.7500 246 curveto 0.7500 0.7500 scale 1 setlinewidth stroke DamPageMkerSv restore 0drw2 %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat C setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 0drw2 ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begiB /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repea t setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if )0.5333 0.5333 0.5333 _cv begin strgb end Xdrw2 1 1 1 _cv begin strgb end 1 1 1 _cv begin strgb end DDDDDD DDDDDD )0.2667 0.2667 0.2667 _cv begin strgb end Xdrw2 DDDDDDDDDDDD )0.2667 0.2667 0.2667 _cv begin strgb end )0.2667 0.2667 0.2667 _cv begin strgb end )0.2667 0.2667 0.2667 _cv begin strgb end %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat C setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 0drw2 ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 0drw2 ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if )0.8000 0.8000 0.8000 _cv begin strgb end 0drw2 )0.8000 0.8000 0.8000 _cv begin strgb end ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv B begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}r epeat setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 0drw2D ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat C setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 1 1 1 _cv begin strgb end 0drw2 1 1 1 _cv begin strgb end ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 1 _cv begin stg end 0drw2 1 _cv begin stg end ~ffff ffffff ffff33J ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat C setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 1 1 1 _cv begin strgb end 0drw2 1 1 1 _cv begin strgb end ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv beB /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}rep eat setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 0drw2 ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv beB /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}rep eat setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if )0.8000 0.8000 0.8000 _cv begin strgb end 0drw2 )0.8000 0.8000 0.8000 _cv begin strgb end ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv be /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repC eat setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if 0drw2 ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" %%DSIDICT:_cv currentdict /bu known {bu}if userdict /_cv known not{userdict /_cv 30 dict put}if _cv begin /bdf{bind def}bind def currentscreen/cs exch def/ca exch def/cf exch def systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat C setrgbcolor pop}bdf}ifelse /ss{//cf //ca //cs setscreen}bdf /stg{ss setgray}bdf /strgb{ss setrgbcolor}bdf /stcmyk{ss cvcmyk}bdf /min1{dup 0 eq{pop 1}if}bdf currentdict /bn known {bn}if DDDDDD )0.2667 0.2667 0.2667 _cv begin strgb end 0drw2 DDDDDD )0.2667 0.2667 0.2667 _cv begin strgb end ~ffff ffffff ffff33 ff33ff ff3333 33ffff 33ff33 3333ff 333333 wwwwww UUUUUU DDDDDD """""" User Dictionary 1T9VqDn